;; Simple test for set! functionality
(display "Testing simple set! functionality\n")

;; Test 1: Basic set!
(define x 10)
(display "x before: ")
(display x)
(display "\n")
(set! x 20)
(display "x after set!: ")
(display x)
(display "\n\n")

;; Test 2: Set! with an expression
(define y 5)
(display "y before: ")
(display y)
(display "\n")
(set! y (+ y 10))
(display "y after set! (+ y 10): ")
(display y)
(display "\n")